﻿Module Module1
    Sub Bai20(ByVal n As Integer)
        Dim i As Integer
        For i = 1 To n Step 1
            If (n Mod i = 0) Then
                Console.Write(i & "  ")
            End If
        Next
    End Sub
    Sub Main()
        Dim n As Integer
        Console.WriteLine("Nhap So n: ")
        n = Console.ReadLine()
        Console.WriteLine("Tat Ca Cac Uoc So Cua {0}: ", n)
        Bai20(n)
    End Sub

End Module
